home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / utility / formula1 / vcform1.3 / VB4 / FORMAT2 / MyPalet1.txt < prev    next >
Encoding:
Text File  |  1995-09-15  |  1.8 KB  |  66 lines
  1. Option Explicit        
  2.         
  3. Sub MyPalet1()        
  4.         
  5.     With F1Book1    
  6.         
  7.         .PaletteEntry(1) = 0
  8.         .PaletteEntry(2) = 16777215
  9.         .PaletteEntry(3) = 255
  10.         .PaletteEntry(4) = 65280
  11.         .PaletteEntry(5) = 16711680
  12.         .PaletteEntry(6) = 65535
  13.         .PaletteEntry(7) = 16711935
  14.         .PaletteEntry(8) = 16776960
  15.         .PaletteEntry(9) = 128
  16.         .PaletteEntry(10) = 32768
  17.         .PaletteEntry(11) = 8388608
  18.         .PaletteEntry(12) = 32896
  19.         .PaletteEntry(13) = 8388736
  20.         .PaletteEntry(14) = 8421376
  21.         .PaletteEntry(15) = 12632256
  22.         .PaletteEntry(16) = 8421504
  23.         .PaletteEntry(17) = 16744576
  24.         .PaletteEntry(18) = 6299776
  25.         .PaletteEntry(19) = 12648447
  26.         .PaletteEntry(20) = 14737568
  27.         .PaletteEntry(21) = 8388704
  28.         .PaletteEntry(22) = 8421631
  29.         .PaletteEntry(23) = 12615680
  30.         .PaletteEntry(24) = 16761024
  31.         .PaletteEntry(25) = 8388608
  32.         .PaletteEntry(26) = 16711935
  33.         .PaletteEntry(27) = 65535
  34.         .PaletteEntry(28) = 16776960
  35.         .PaletteEntry(29) = 8388736
  36.         .PaletteEntry(30) = 128
  37.         .PaletteEntry(31) = 8421376
  38.         .PaletteEntry(32) = 16711680
  39.         .PaletteEntry(33) = 16764672
  40.         .PaletteEntry(34) = 16777065
  41.         .PaletteEntry(35) = 14745568
  42.         .PaletteEntry(36) = 8454143
  43.         .PaletteEntry(37) = 15780518
  44.         .PaletteEntry(38) = 11771101
  45.         .PaletteEntry(39) = 15634355
  46.         .PaletteEntry(40) = 14935011
  47.         .PaletteEntry(41) = 16346922
  48.         .PaletteEntry(42) = 13482047
  49.         .PaletteEntry(43) = 3572808
  50.         .PaletteEntry(44) = 4295829
  51.         .PaletteEntry(45) = 4349582
  52.         .PaletteEntry(46) = 8020640
  53.         .PaletteEntry(47) = 11292514
  54.         .PaletteEntry(48) = 9868950
  55.         .PaletteEntry(49) = 12463901
  56.         .PaletteEntry(50) = 7759400
  57.         .PaletteEntry(51) = 17664
  58.         .PaletteEntry(52) = 81477
  59.         .PaletteEntry(53) = 1255530
  60.         .PaletteEntry(54) = 6961541
  61.         .PaletteEntry(55) = 8729162
  62.         .PaletteEntry(56) = 4342338
  63.         
  64.     End With    
  65. End Sub        
  66.